(describe-variable): Don't use symbol-name if v isn't symbol.

diff --git a/lisp/help.el b/lisp/help.el
index a7d0155c89cacc9d57c7ad027d0a1a44f5ad42cf..2ab2c9cb0a128a69e7508799735f0e3706b5bdcf 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -633,7 +633,8 @@ Returns the documentation as a string, also."
      (setq val (completing-read (if (symbolp v)
                                    (format "Describe variable (default %s): " v)
                                  "Describe variable: ")
-                               obarray 'boundp t nil nil (symbol-name v)))
+                               obarray 'boundp t nil nil
+                               (if (symbolp v) (symbol-name v))))
      (list (if (equal val "")
               v (intern val)))))
   (if (symbolp variable)